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Introduction 

Macroanalysis is a technique by which sequentially recorded 
observational data are analyzed in units of three or more indi- 
vidual codes (Campbell, 1973). In dealing with chains of three or 
more behavior codes, macroanalysis facilitated the examination of 
"patterns of behaviors;" patterns which are totally ignored in 
conventional frequency measures and only slightly accounted for 
in the more sophisticated matrix analyses. 

Early studies of classroom climate such as those by Withall 
(1949, 1951) and Flanders (1965) attempted to deal with behavior 
patterns in the classroom; however, due to inadequate techniques 
for positively identifying the exact patterns of behavior, ;:ross 
descriptors such as "learner-centered" vs "teacher-centered” 
(Withall) and "direct" vs "indirect" (Flanders) were employed. 
These broad definitions of behavior have contributed to the incon- 
sistent findinvs across studies of seemingly similar stratevies 
and have lead to criticism of interaction analysis as a research 
tool by users in the field (Rosenshine, 1970). Even with such 
criticism, the need to study behavior patterns in the classroom, 
especially in terms of establishing teacher effectiveness, is a 
recognized fact (Smith, 1967). With the introduction of macroana- 
lytic techniques in more recent years, interests in behavior 
patterns and strate ;ies of teaching and Learning in the classroom 


have been rekindled. Studies by Shymonsky, et al. (1975); Penick, 
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et al. (1976); and Campbell (1973) in which macroanalytic proce- 
dures were employed have been successful in identifying definite 
strategies or patterns of learning and teaching in various class- 
room settings. 

Unfortunately, the search for behavior patterns in the class- 
room and elsewhere through the use of macroanalytic techniques has 
been Limited to only a handful of researchers due to the compli- 
cated nature of the computer programming required in the analysis. 
The program described in the following pages is designed to iden- 
tify the behavior patterns occurring in sequentially recorded 


observational data. 


General Program Description 
Behavior patterns can be identified from any observational 
data which are collected in a manner which preserves the sequence 
of the individual codes. Although the basic program function is 
the identification of patterns, several types of patterns as well 
as several characteristics of the patterns are built into the 
program or can be called at the user's option. Following is a 


list of the main functions and options contained in the program: 


Pattern Lenzth: 

The behavior patterns are formed by grouping successive codes 
in the raw data. These yvroupings can be specified to contain from 
one to five characters (Nute: a grouping size or pattern Lenjsth 


of 1 amounts to o simple frequency report ot individual codes 


while a pattern length of 2 is equivalent to a conventional pairs 


analysis characteristic of the matrix procedures). 


Pattern Type: 

Once the pattern length is decided, the user has the option 
of formulating patterns which include repetitive characters or 
collapsing repetitive characters within the sequence. The latter 
process of collapsing is referred to as MACROanalysis (Shymansky, 
et al., 1975). The collapsing function has the effect of reducing 
long strings of repetitive codes ( 1) into a single code within 
behavior patterns. For example, without collapsing, the pattern 
AXXAB is possible from the data sequence AXXABAACX, etc. Incor- 
porating the collapsing function prohibits the repetition of any 
code within the patterns generated. Thus, the first 5-code pattern 


identified in the above sequence is AXABA. 


Fattern Listing: 

Once all patterns within the date are identified, the user can 
specify the amount of data to be printed and the form of the 
listing. During the actual program execution, all patterns iden- 
tified are stored and counted. Obviously, not all patterns wil. 
occur with the same frequency. Thus, the user may opt to have the 
top 100 patterns printed only. Furthermore, the user may opt to 
have these patterns listed according to frequency or beginning 


character in the pattern. 


Miscellaneous Output: 

In addition to the program options listed above, several other 
pieces of information are provided in the pattern analysis. The 
frequency of occurrence of all individual behavior codes is pro- 
vided as well as the percentage of occurrence. For each pattern 
listed, the frequency and percentage of all patterns identified is 
provided. When the collapsing option is specified, the average 
length of the span of codes comprising the raw data from which 
the collapsed sequence was derived as well as the average number 
of each individual code within the collapsed span are listed for 


each collapsed pattern identified. 


A sample printout is included in this report to clarify several 
of the user options and the output provided. Specifications for 


calling each of the options and other input data are also discussed. 


User Information 


Following is a list of "Keywords" used in the program to spe- 


cify pattern parameters. A summary sheet of the program options 


is contained in Appendix I. 


Input Options: 
These commands specific where the data are located on the 


input cards. 


(a) BEGIN FIELD -- This specifies the position of the first 


character of data on the input card which will 
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initiate the first behavior pattern. For data 


beginning in column 21, the control card would 
contain the message: 
BEGIN FIELD = 21 
(b) BEGIN LENGTH -- This specifies the length of the data 
field on the input card. In the case of data con- 
teined in columns 21-80, the control card would 
contain the message: 
BEGIN LENGTH = 60 
(c) FIELD SPAN -- This command specifies which characters 
of the field are to be used in forming the patterns. 
For example, if the data were contained in columns 
21-80 and only the first character of each group of 
3 codes were to be used in forming the patterns, 
i.e., data in column 21, 24, 27, 30, etc. the 
control card message would be 
FIELD SPAN = 3 
If every character were to be used in formulating 
the pattern, the message would be 


FIELD SPAN = 1 


Pattern Options: 
As was mentioned earlier, the user has the option of choosing 


pattern length and collapsing procedures. 
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(a) PATLEN -- To specify pattern length from 2-5, the 
following control message is used: 
PATLEN = 5 
(b) COLLAPSE -- Patterns generated from the raw observa- 
tional data can be specified in one of two forms: 
(1) collapsed form in which repetitive codes in the 
raw data are contracted toe single unit code in 
the identification of patterns, and (2) repetitive 
form in which repetitive codes within the raw data 
are preserved and recojnized in the patterns. 
Collapsing reduces the raw code sequecne AAABBAADB 
to a five code pattern of ABADB while retaining the 
repetitive codes results in the five code patterns 
AAABB, AABBA, ABBAA, BBAAD, and BAADB. To acti- 
vate the collapsing option, the following control 
card message is used: 
COLLAPSE = 'YKS' 
A default function in the progrem will specify that 
repetitive codes be preserved if the COLLAPSE = 'YES' 


command is deleted. 


Input Character Options: 
(2) VALID CHAR -- This control card contains a listing of 
ta 
all the characters which will be used to create 


behavior patterns. 
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(b) INVALID CHAR -- This card lists the characters which 
can occur in the data field but which are not to 
be used in formulating behavior patterns. For 
example, a data field may purposely contain blanks 
or a miscellaneous code character. Listing these 
characters as INVALID CHARacters will signal the 
computer to note the occurence of such characters 
but to ignore them in the formulation of the 
behavior patterns, 

(c) BREAK CHAR -- This character is used to denote the end 
of a data set. Whenever the BREAK CHARaracter is 
encountered within the data field, the pattern for- 
mation is ended and a new pattern is started with 
the next card. Note that the BREAK CHARacter must 
be coded within the bounds specified by the 
BEGIN FIELD and BEGIN LENGTH commands. 

(d) INVALID -- This specifies the maximum number of charac- 
ters which can occur in the data other than the 
three character types (VALID CHAR, INVALID CHAR, 
and BREAK CHAR) before the program is terminated. 
If an illegal character is encountered, an error 
messazte will be printed. The control card messaye 
vhich would allow 1000 such errors to be counted 
would read 


INVALID = LOOO 
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Output Options: 
Once the program is executed and all patterns have been iden- 


tified, counted, and stored, the patterns are printed according 


to the following user options: 

(a) MOST FREQUENT -- The user must specify the number of 
patterns to be listed in the printout. For example, 
the comma.1a 

MOST FREQUENT = 100 
specifies that ne 100 most frequently occurriny 
patterns be listed. Although this number is very 


arbitrary, it has been observed that, beyond the 


top 50 patterns, the frequency of individual patterns 


drops off rapidly. 


(b) ALPHA ORDER -- Behavior patterns can be Listed alpha- 


betically by the first code (should that code be an 
alpha character) by using the control card message 
ALPHA ORDER = 'YES' 
should the user not want an alphabetical Listing, 
the message 
ALPHA ORDER = 'NO' 


must be used. 


As a final note, Lhe proyram listed herein is efficient and 
economical for small amounts of data (Less than 22,000 raw behavior 


codes). Beyond thal point, the program becomes costly to run 
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because all the data are stored in core. For larger amounts of 
raw data, an alternate program is available which will handle up 
to 80,000 raw behavior codes. Persons interested in the larger 


capability should ccntact the authors for further information. 
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APFENDIX I 
. SUMMARY OF COMPUTER KEY WORDS AND USER OPTIONS 
COMPUTER KEYWORD/ 
OPTION LIST DEFAULT VALUE RESTRICTIONS 
BEGIN FIELD 1 1 £ BEGIN FIELD < 80 
BEGIN LENGTH 80 1 £ BEGIN LENGTH < 80 
FIELD SPAN l 1 $ FIELD SPAN £ 80 
VALID_CHAR null string 1 £ VALID_CHAR £ 40 
INVALID CHAR null string INVALID CHAR £ 10 
BREAK CHAR fo Only one BREAK CHAR 
allowed 

PATLEN ? 2 $ PATLEN S$ 5 

COLLAPSE "NO! Checks to see if it is 
YES -- otherwise it is 
No 

INVALID 90 INVALID S$ 32,767 

MOST _FREWUENT 20 1 £ MOST_FREQUENT < 100 

ALPHA ORDER "NO' Checks to see if it is 
YES -- otherwise it is 
No 
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APPENDIX II 
SAMPLE PRINTOUT 
17 


HAS P SYSTEM LOG 


© 13032244 JOB 184 == MACRO -- BEGINNING EXEC - INIT 8 = CLASS D 


//MACRO JOB (ee--e--- 95991101)9"SHYMANSKY' JOB 184 
rh EXEC PLICLG,PARM.PLIL="SM=(2,80,1) ", 


‘7 REGIONeGO=200K 


‘/PLIL~SYSIN OD * 
EF1421I - STEP WAS EXECUT.D - COND CODE 0004 
CCTNG == 17.05 SEC, CPU, 17,25 SECe WAIT, DAC= 85, HWM= 100K 


-EF1421I = STEP WAS EXECUTED - COND CODE 0004 
.CCTNG == 2285 SEC. CPU, 29040 SECe WAIT, DAC= 468, HWM= 98K 


-/GOeSEQOUT DD SYSOUT=A 
“/G0e0RDOUT DD SYSOUT=A 

(/G0eSYSIN DD * 

4/30eCARD OD * 

-EF142I = STEP WAS EXECUTED - COND CODE 0900 
Bel? SECe WAIT, DAC= O, HWM= 110K 


WCCTING == 5055 SEC, CPU, 


€T 
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"ERSION 5 5 OS/360 PL/I COMPILER (F) 


‘L/T F COMPILER OPTIONS SPECIFIED ARE AS FOLLOWS-- 


SM=(2 98091) 


‘HE COMPLETE LIST OF OPTIONS USED DURING THIS COMPILATION IS-- E BCDIC 
CHAR60 
NOMACRO 
SOURCE2 
NOMACDCK 
COMP 
SOURCE 
. NOATR 
NOXREF 
NOE XTREF 
NOLIST 
LOAD 
NODECK 
FLAGW 
STMT 
S1ZE20096336 
LINECNT#060 
OPT201 
SORMGIN#(002,080,001) 
NOE XTDIC 
NEST 
OPLIST 
SYNCHKT 


qT 


21 
20 


22 


*OPTIONS EFFEC? 


SIZE=0096336, LINECNT=060, 


SORMGIN=(002,080,001), 


CT 
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STMT LEVEL NEST 


1 
2 


PRNT PROC OPTIONS(MAIN) 


1 


Ce ell el dl oe ed 


PRNT PROC OPTIONS(MAIN) 


DCL 


DCL 


NCL 
OCL 
DCL 
DCL 
DCL 
DCL 
OCL 
DCL 
DCL 

 & 
DCL 
OCL 
DCL 
DCL 
DCL 


1 NODE BASED (NLINKPT), 
LLINK POINTER, 
RLINK POINTER, 
BALLANCE FIXED BIN(15), 
KEY CHAR(5), 
COUNT FIXED BIN(15), 
LENGT(5) FIXED BIN(L5) 
1 HEAD BASED (HEADPT), 

2 NLLPT POINTER, 

2 ROOTPT POINTER, 

2 HIGHT FIXED BIN(15) 
A FIXED BIN(15) 
ALL CHARS CHAR(51) VARYING INIT(**") 
ALPHA ORDER CHAR(3) INIT(*NO*) 
BEGIN FIELD FIXED BIN(15) INIT(L) 
BEGIN LENGTH FIXED BIN(15) INIT(80) 
BREAK CHAR CHAR(1) VARYING INIT(*/*) 
BREAKBEGIN FIXED BIN(15) 
BREAKCNT FIXED BIN(15) 


NNN NP f 


cARD FILE 
7c ARDS FIXED BIN(15) INIT(O) 
oNT FIXED BIN(15) 


~OLLAP FIXED BIN(15) INIT(O) 
COLLAPSE CHAR(3) INIT(*NO *) 

ROT FIXED BIN(15) INIT(O) 
cOF FIXED BIN(15) INIT(O) 
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en ll ell oll oll oll ool oo ell ed ee 


DCL 


FIELD SPAN FIXEO BIN(15) INIT(L) 
FIRST(O 51) FIXED BIN(31) INIT((52)90) 
FIELDEND FIXED BIN(15) 

FIRST NODE FIXED BIN(15) INIT(L) 
FIRST TIME FIXEC BIN(L5) INIT(L) 
FIRSTCNT FIXED BIN(15) INIT(O) 
FREQUENT(50) POINTER 

4EADPT POINTER 

INERR FIXED BIN(15) INIT(O) 

INPT CHAR(80O) INIT((80)" °) 
INVALID FIXED BIN(31) INIT(50) 
INVALIO CHAR CHAR(10) VARYING INIT(**) 
INVALIOBESIN FIXED BIN(15) 

INVALIDCNT FIXED BIN(15) INIT(O) 
INVLDCNT FIXED BIN(1L5) 

LASTCHAR CHAR(1) 

MOST FREQUENT FIXED BIN(15) INIT(20) 
NCHAR CHAR(L) INITC® 9) 

VCOMP FIXED BIN(15) INIT(O) 
NLINKPT POINTER 

NPOSIT FIXED BIN(L5) INIT(B1) 
JROCNT FIXED BIN(15) INIT(O) 
JRDLST(101) POINTER 

JIRDOUT FILE PRINT 

P POINTER 

PAT CHAR(S) INEITC#8ereee) 
PATCNT(5) FIXED BIN(15) INIT (09090%0,0) 
PATFND FIXED BIN(31) 

PATLEN FIXED BIN(15) INIT(2) 


LT 
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STMT LEVEL NEST 


48 
49 


PRNT PROC OPTIONS(MAIN) 


el cell cell cel oe cell cell cell ool ool ed oo 


a ee 


DCL 
DCL 
DCL 
DCL 
CCL 
DCL 
OCL 
DCL 
DCL 
DCL 
OCL 
OCL 
DCL 


DCL 
DCL 
OCL 
DCL 
DCL 
DCL 
DCL 
OCL 
UCL 
DCL 
DCL 


PERCNT FLOAT BIN(51) 
PERCNT1(5) FLOAT BIN(51) 
PTHIGHT FIXED BIN(15) 


PTSTACK(30) POINTER 

Q POINTER 

R POINTER 

$s POINTER 

SEQOUT FILE PRINT 

SLSH FIXED BIN(15) 

SROT FIXED BIN(15) INIT(O) 

START FIXED BIN(15) 

T POINTER 

TITLES(5) CHAR(6) INIT( * FIRST", *SECOND*',* THIRD’, 


"FOURTH", FIFTH") 
TMPORDL POINTER 
TMPORD2 POINTER 


ToT FIXED BIN(1L5) 
TOTAL FIXED BIN(31) INIT(O) 
TOTCHAR FLOAT BIN(51) INIT(O) 


TOTPER FLOAT BIN(51) 

VALID FIXED BIN(15) , 
VALID CHAR CHAR(40) VARYING INIT(**) 
VALIDBEGIN FIXED BIN(L5) INIT(L) 
VALIDCNT FIXED BIN(15) 

VALIDEND FIXED BIN(15) 


gt 
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91 
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ON ERROR PUT DATA 


IN ENDFILE(CARD) BEGIN 
EOF = 1 
GO TO CHNG 
END 


JN ENDPAGE(ORDOUT) BEGIN 
IF COLLAP = O THEN 
PUT FILEC(ORDOUT) EDIT(*NAME*,*COUNT® »* FREQUENCY ® ) 
(SKIPsA(4) 9X04) pAU5D 9X12) ,A(9)) 
ELSE 
PJT FILE(ORDOUT) EDIT(*NAME*,*COUNT® »* FREQUENCY’, 
(TITLES(I) DO I = 1 TO PATLEN)D,*TOTAL® ) 
(SKIP 9 A014) 9X14) pACS De X(2) ACID XIS Dy 
(PATLEND(X(2) sA(6)) 9X16) ,A05)) 
END 


JIN ENOPAGE(SEQOUT) BEGIN 
IF COLLAP = 0 THEN 
PUT FILE(SEQOuUT) EDIT(*NAME*,*COUNT® »* FREQUENCY ®) 
(SKIP A014) 9X14) 9A05) 9X02) pA(9)) 
ELSE 
PUT FILE(SEQOUT) EDIT(*NAME* ,*COUNT® »* FREQUENCY’, 
(TITLES(I) DO I = 1 TO PATLEN),*TOTAL® ) 
(SKIP, A(4)9X(4) 9A05) X12) pALID AXIS), 
(PATLEN) (X(2)9A(6)) 9X16) 9A05)) 
cNO 
PUT PAGE 


6T 
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STMT LEVEL NEST 


92 
93 


94 


95 


96 


97 
98 
99 
101 


102 
103 


104 
105 
106 
107 
109 
110 
111 
112 
113 
114 


PRNT PROC OPTIONS(MAIN) 


1 
1 


l 


See a 


~ 


oe ee oe ee 


~ — 


a 


PUT 
PUT 


GET 


PUT 


PUT 


VAL 
VAL 
IF 


END 


ALL 
BRE 
BRE 
LF 


=ND 
LS 


=ND 


EDIT(* THE FOLLOWING ARE THE EXECUTION PARAMETERS *)(SKIP,A) 
SKIP(2) 


JATA(VALID CHAR, INVALID CHAR, BREAK CHAR,COLLAPSE,INVALID, 
PATLEN,BEGIN FIELD,»BEGIN LENGTHeFIELD SPAN»MOST FREQUENT, 
ALPHA ORDER) 

DATA( VALID CHAR, INVALID CHAR, BREAK CHAReCOLLAPSE sINVALID, 
PATLEN,BEGIN FIELD,BEGIN LENGTHe,FIELD SPAN,MOST FREQUENT, 
ALPHA ORDER) 

SKIP(2) 


IDCNT = LENGTH(VALID CHAR) 

IDEND = VALIOCNT 

VALIDCNT = 0 THEN DO 

PUT EDIT(*ERROR** NO VALID CHARACTERS SPECIFIED IN INPUT®) 
(SKIP,A) 

INERR = INERR + 1 


CHARS = VALID CHAR 
AXBEGIN = VALIDCNT + 1 
AKCNT = LENGTH( BREAK CHAR) 


BREAKCNT O THEN DO 
ALL CHARS = ALL CHARS BREAK CHAR 
E DO 


BREAKBEGIN = 0 
PUT EDIT(*WARNING **# NO BREAK CHARACTER SPECIFIED") (SKIP,A) 


02 
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115 
116 
117 
119 
120 
121 


L2z 


123 
125 


126 
Le? 
128 


130 
132 


133 
13% 


L35 
137 


33 


— oe ep 


— 


INVLDCNT = LENGTH( INVALID CHAR) 
INVALIOBEGIN = VALIOCNT + BREAKCNT + 1 
IF INVLDCNT 0 THEN DO 
ALL CHARS = ALL CHARS INVALID CHAR 
=NO 
cLSE PUT EDIT(*WARNING#® NO INVALID CHARACTERS, NOT EVEN A BLANK*) 
(SKIP,A) 
FIRSTCNT = LENGTH(ALL CHARS) 
IF PATLEN ) 2 PATLEN 5 THEN DO 
PUT EDIT(*ERROR = THIS PROGRAM IS SET FOR MAXIM PATTER LENGTH’, 
* OF 3 CHARACTERS, THE NUMBER INPUT IS *,PATLEN) 
(SKIP ,AgA,F(3)) 
INERR = INERR + 1 
=ND 


1F SUBSTR(COLLAPSE,1,1) = *¥* THEN COLLAP = 1 


IF BEGIN FIELD ) 1 BEGIN FIELD 80 THEN 00 
PUT EDIT (CERROR ** VALUE FOR INPUT VARIABLE BEGIN FIELD IS "%, 
"INCORRECTe')(SKIPsA,A) 
INERR = INERR + 1 

END 


IF BEGIN LENGTH ) 1 BEGIN LENGTH 80 THEN DO 
PUT EDIT(*ERROR ** THE VALUE FOR BEGIN LENGTH IS INCORRECT.') 


Te 


STMT LEVEL NEST 


138 
139 


140 
141 
143 


144 
145 


146 
148 
149 
150 


151 
153 


154% 
155 
156 
158 


159 
160 


aa fy — eH SFP SS SF BS SF 2 2 FT 


PRNT PROC OPTIINS( MAIN) 


~~ 


~ — 


= 


(SKIP,A) 
INERR = INERR + 1 
END 


FIELDEND = BEGIN FIELD + BEGIN LENGTH - 1 

IF FIELOEND 80 THEN DOO 
PUT EDIT(*ERROR ** THE BEGINNING POSITION ON CARD PLUS THE FIELD", 
* LENGTH IS GREATER THAN 80*)(SKIPsAsA) 
INERR = INERR + 1 

END 


IF FIELD SPAN ) 1 FIELD SPAN 80 THEN 00 
PUT EDIT(*THE VALUE FOR FIELD SPAN IS INCORRECT. ") (SKIP,A) 
INERR = INERR + 1 

cND 


IF MIST FREQUENT ) 1 MOST FREQUENT 1C0 THEN 00 
PIT EDIT(*WARNING ** THE VALUE FOR VARIABLE MOST FREQUENT IS GREATER*, 
" THAN 100, IT IS RESET TO LOO*)(SKIP,A,A) 
MIST FREQUENT = 100 
=ND 
IF INERR 0 THEN DO 
PUT EDIT (*ERROR ** EXECUTION IS TERMINATED BECAUSE OF ‘'°, 
"PARAMETER ERRORS *)(SKIP,A,A) 
GI TO FINI 
~ND 


oe 
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STMT LEVEL NEST 


PRNT PROC OPTIONS(MAIN) 


el el dll cel oe od ee ee ee ee ee ee ee oe ee de ee ed 


NNNWWNYNWE FRPWNNN KEK MWWY SF UUW WWWNPD PhP EH 


BRK DO WHILL (EOF = 0) 
IF FIRST TIME = 1 THEN OO 
FIRST TIME = 0 
CALL GETCHAR 
D0 I = 1 TO PATLEN 
CALL GETCHAR 
CNT = 1 
IF COLLAP = 1 THEN DO ‘ 
DO WHILE ( NCHAR = LASTCHAR) 
CNT = CNT + 1 
CALL GETCHAR 
END 
END 
SUBSTRIPAT,I,1) = LASTCHAR 
PATCNT(I) = CNT 


END 
te ND 
cLSE DO 
CALL GETCHAR 
CNT = 1 : 


IF COLLAP = 1 THEN DO 
DO WHILE (NCHAR = LASTCHAR) 
CNT = CNT + 1 
CALL GETCHAR 
END 
END 
CHNG SUBSTR(PAT,1,PATLEN-1) = SUBSTR(PATs 2,» PATLEN~1) 
03 I = 1 TO PATLEN-1 
PATCNT(I) = PATCNT(I+1) 
END 
SJBSTR(PAT,PATLEN,1) = LASTCHAR 
PATCNT(PATLEN) = CNT 
END 


fe 
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PRNT PROC OPTIONS(MAIN) 


STMT LcVEL NEST 


/* THE FOLLOWING CODE CREATES AND SEARCHES A BALANCED 
BINARY TREEs INSERTING NODES WHEN NOT ALREADY IN TREE AND 
BALANCING TREE AFTER INSERTION, WHEN NECESSARY. 
THE ALGORITHM WAS ADAPTED FROM THE ART OF COMPUTER 
PROGRAMMING, VOLUME 3, SORTING AND SEARCHING BY DONALD 
E. KNUTH, ADDISON“WESLEY1975 PAGES 455 - 457 


*/ 
197 l l AO DO WHILE (FIRST NODE = 1) 
198 l 2 FIRST NODE = G6 
199 1 2 ALLOCATE HEAD 
200 1 2 ALLOCATE NODE 
201 l 2 NLINKPT = COUNT = 1 
202 1 2 NLINKPT = BALLANCE 2 0 
203 l 2 NLINKPT = CLLINK = NULL 
204 r 2 NLINKPT = RLINK = NULL 
205 I < NLINKPT = KEY = PAT 
206 l 2 HEADPT - HIGHT = 1 
207 l 2 HEADPT - ROOTPT = NLINKPT 
208 1 2 DJ I = 1 TO PATLEN 
209 1 3 NLINKPT = LENGT(IT) = PATCNT(I) 
220 l 3 END 
211 1 2 PATFND = 1 
212 : 2 TITAL = 1 
213 l 2 GO TO All 
214 1 2 END 


te 


40 


41 


215 


216 
217 


218 


219 
221 
Zen 
224 
225 
226 
227 
228 


229 


230 
232 
233 
234 
235 
236 
eat 
239 
240 


_ a 


= eo or pe 


— — ew ENR ee 


NNR NNNN ND & 


Al 


A2 


A3 


/* INITIALIZE */ 
= MEADPT 
4EADPT - ROOTPT 
= HEADPT = ROOTPT 


wY-=t 
4 


/* COMPARISON «/ 
NCOMP = NCOMP + 1 
IF PAT ) P = KEY THEN GO TO A3 
TF PAT P - KEY THEN GO TO A4& 
CO I = 1 TC PATLEN 
P = LENGT(I) = P = LENGT(I) + PATCNT(T) 
END 
P - COUNT = P = COUNT + 1 
PATFND = PATFND + 1 
GO TJ All 


/* MOVE LEFT */ 
Q =P = LLINK 
IF Q = NULL THEN DO 
ALLOCATE NODE 


Q = NLINKPT 
P- LLINK = Q 
GJ TO AS 
END 
1F Q=- BALLANCE = 0 THEN DO 
7 =P 
S$ = Q 


Se 
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PRNT PROC OPTIINS(MAIN) 


STMT LEVEL NEST 


241 l 2 END 

242 ae l P = Q 

243 1 l GO TI A2 

244 l l AS /* MOVE RIGHT */ 
Q = P = RLINK 

245 1 1 IF Q = NULL THEN 00 

247 l 2 ALLOCATE NODE 

248 1 2 Q = NLINKPT 

249 l 2 P - RLINK = Q 

250 1 2 GJ TO AS 

251 1 2 END . 

252 1 1 IF Q = BALLANCE = 0 THEN DO 

254 1 2 T =P 

255 1 2 S$ = Q 

256 1 2 =ND 

eat 1. 1 P= Q 

258 1 l GO TO A2 

259 1 l A5 /* INSERT */ 
TOTAL = TOTAL + 1 

260 l l PATFND = PATFND + 1 

261 l 1 Q =- CLLINK = NULL 

262 1 1 Q = RLINK # NULL 

263 1 1 Q - BALLANCE = 0 

264 1 1 GQ - KEY = PAT 

265 1 1 CO I = 1 TO PATLEN 

266 1 2 Q- LENGT(I) = PATCNT(T) 

267 1 2 END 

268 1 1 Q - COUNT = 1 
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269 1 1 A6 /* ADJUST BALANCE FACTORS */ 
270 1 1 IF PAT ) S = KEY THEN DO 
271 1 2 R=S$ ~- LLINK 

272 l 2 P=z=S$ - LLINK 

213 1 2 cND 

274 1 l ELSE DO 

275 l z R= S$ = RLINK 

276 l 2 P=S$ = RLINK 

277 l 2 END 

278 l 1 DO WHILE ( P = Q) 

279 l 2 1F PAT ) P = KEY THEN DO 

281 l 3 P - BALLANCE = -1 

282 l 3 P = P= LLINK 

283 1 3 END 

284 1 2 ELSE IF PAT P = KEY THEN D3 
286 l 3 P - BALLANCE = 1 

287 1 3 P= P- RLINK 

288 1 3 END 

289 1 2 =ND 

290 1 1 AT /* BALANCE ACT */ 
291 1 1 IF PAT ) S = KEY THEN A = =1 
292 l 1 eLSE Az 1 

293 i l IF S$ - BALLANCE = 0 THEN DO 
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PRNT PROC OPTIONS(MAIN) 


STMT LeVEL NEST 


295 1 2 S - BALLANCE = A 
296 1 2 HEADPT - HIGHT = HEADPT - HIGHT + 1 
297 1 2 G3 TO All 
298 1 2 cND 
299 1 1 cLSE DO 
300 1 2 IF S = BALLANCE -A THEN DO 
302 l 3 S - BALLANCE = 0 
303 1 3 GO TO All 
304 1 3 END 
305 L 2 ELSE DO 
306 1 3 IF S = BALLANCE = A THEN 00 
308 I 4 IF R = BALLANCE = A THEN GO TO AB 
310 l 4 ELSE IF R - BALLANCE = -A THEN GO TO A9 
a1zZ 1 4 END 
313 1 3 END 
314 l 2 cND 
315 1 1 PUT EDIT (* ERROR IN TREE LOOKUP SECTION AT*)(SKIP,A) 
316 1 1 AB /* SINGLE ROTATION */ 
SROT = SROT + 1 
317 1 1 DR 
318 1 1 IF A = 1 THEN 00 
320 1 2 S - RLINK = K LLINK 
321 1 2 R- LLINK = $ 
322 1 2 ce ND 
323 1 1 ELSE 00 
324 l 2 $s LLINK = R RLINK 
325 l 2 R=- RLINK = $ 
326 1 2 cND 
327 1 af S - BALLANCE = 0 
328 1 l R = BALLANCE = 0 
329 l 1 60 TJ Al0O 


Be 


= 


a ee ee ee ee) 


~ 


NF NNNFKFNNNNNNFE NY NNNDND 


A9 


ELSE 


/* 


oO 


'tetnuo 


DO 


DOUBLE ROTATION */ 
OROT + 1 
1 THEN DO 


R= 


LLINK 
RLINK 
RLINK 
LLINK 


R= 


RLINK = P 
LLINK 
LLINK 
RLINK 


LLINK 


uu a 
“nuvD vd 
i] 


RLINK 


LLINK 


RLINK 


LLINK 


RLINK 


ouw 
“nvn 
i] 


BALLANCE = A THEN DO 
BALLANCE = -A 
BALLANCE = 0 


LFF = 


47 


BALLANCE = 0 THEN OO 


PRNT PROC OPTIONS(MAIN) 


STMT LEVEL NEST 


354 Z 3 S - BALLANCE = 0 
355 1 3 R - BALLANCE = 0 
356 l 3 END 

aad 1 2 ELSE DO 

358 1 3 IF P = BALLANCE = -A THEN DO 
360 1 4 S - BALLANCE = 0 
361 l 4 R - BALLANCE = A 
362 1 4 END 

363 1 3 END 

364 l 2 END 

365 1 l F - BALLANCE = 0 


366 A1O /* FINISHING TOUCH */ 
367 IF S = T = RLINK THEN T - RLINK = P 
368 ELSE T - LLINK = P 


— ee 
—- =e 


369 All END BRK 


370 
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PRNT PROC OPTIONS(MAIN) 


STMT LEVEL NEST 


~ 


FUT PAGE y 
PUT EDIT ¢* THE TOTAL NUMBER OF PATTERNS FOUND IS) ',PATFND) 
(SKIPsAyF(T7)) 
PUT EDIT(' THE TOTAL NUMBER JF DIFFERENT PATTERNS FOUND IS) ",TOTAL) 


(SKIP,A,F(7)) 
FUT EDIT(* CHARACTER’, 'COUNT*,*FREQUENCY® ) 
(SKIP(3) sAC1L0) 9X10) »AU5) oX(3),A) 
DO I = 1 TO VALIDEND 
PERCNT = FIRST(I) / TOTCHAR 
PUT EDIT(SUBSTR(ALL CHARS,Ie1) eFIRST(I),PERCNT) 
(SKIP 9X(5) pAeX(10) oF (7) 0X15) 2F(996)) 
END 
NO I = VALIDEND + 1 TO FIRSTCNT 
PUT EDIT (SUBSTR(ALL CHARS »Iel) ,FIRST(I)D) 
(SKIP 9 X(5) sAeX(10) F(7)) 
=NO 
PUT EDET(*INVALID® »FIRST(0O) (SKIP 9 X(5) eA, X(4) FIT) 
1F SUBSTR(ALPHA ORDER»,1e1) = *Y¥* THEN SIGNAL ENDPAGE (SEQOUT) 


/* THE FOLLOWING CODE TRAVERSES THE BINARY TREE, 
PRINTING EACH NODE IN INORDER SECUENCE. THE ALGORITHM 
WAS ADAPTED FROM THE ART OF COMPUTER PROGRAMMING, 
VOLUME 1, FUNDAMENTAL ALGORITHMS BY DONALD Eos KNUTH 
ADDISON-WESLEY, 1975 PAGES 317 - 318 

/ 


TE 


50 


5d 1 


384 
385 


386 
387 


388 


389 
390 
391 


a9e2 
393 
394 
395 


396 
397 
398 
399 
400 
401 
402 
403 
405 
407 


~~ 


~~ — 


— em Ee 


ee me oe pe 


~ — 


NNR 


Tl 


T2 


13 


T4 
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/* INITIALIZE */ 
PTHIGHT = 0 
P = HEADPT - ROOTPT 


/* IS P = NULL */ 
IF P = NULL THEN GO TO T4 


/* PUT P ON STACK */ 
PTHIGHT = PTHIGHT + 1 
PTSTACK(PTHIGHT) = P 
P2=P- LLINK 
60 TJ T2 


/*POP STACK */ 
IF PTHIGHT - 1 ) O THEN GO TO T6 
P = PTSTACK(PTHIGHT) 
PTHISHT = PTHIGHT - 1 


/*VISIT NODE P */ 
IF ORDCNT = O THEN DO 
ORDCNT = 1 
ORDLST(1) = P 
=ND 
ELSE DO 
TMPORD1 = ORDLST(ORDCNT) 
IF P = COUNT = TMPORD1L - COUNT THEN DO 
IF ORDCNT ) MOST FREQUENT THEN ORDCNT = ORDCNT + 1 
OJ I = ORDCNT TO 2 BY -1 


~ 


t 


Ze 


o2 


o3 


STMT L-VEL NEST 


408 
409 
411 
412 
413 
414 
415 
416 


PRNT PROC OPTIUNS(MAIN) 


el el ce I I ee ee ee ee 


HM MWWW REN NW WwW FS SW Ww 


—— eS rrr 


T5A 


TMPORD1 = JROLST(I - 1) 
IF TMPORDL = COUNT = P = COUNT THEN DO 
ORDLST(1) = P 
GO TO T5A 
END 
OROLST(I) = ORDLST(I - 1) 
END 
ORDLST(1) = P 
=ND 
cLSE DO 
IF OROCNT ) MOST FREQUENT THEN 00 
ORDCNT = ORDCNT + 1 
OROLST(ORDCNT) = P 
END ‘ 
END 
END 


IF SUBSTR(ALPHA ORDER»g1,1) = *Y* THEN DO 
TOT = 0 
00 K = 1 TO PATLEN 
PERCNTL(K) = 6 = LENGT(K) / P = COUNT 
TIT = TOT + P = LENGT(K) 
END 
TOTPER = TOT / P = COUNT 
PERCNT = P = COUNT / PATFND 
IF COLLAP = O TH-N PUT FILE(SEQOUT) EDITI(SUBSTR(P - KEYs1l,PATLEN), 
P - COUNT,PERCNT) 
(SKIP,A(PATLEN) 9X(5=PATLEN) oF (7) 9X(3)9F (9,7) ) 


cf 


o4 


437 


438 
439 
440 


441 


442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 


454 


- — 


-_ 


Oe oO oo oo 


RK RK RK NRNNN RE ee 


T6 


ELSE PUT FILE(SEQOUT) EDI T(SUBSTR(P - KEYelePATLEND, 
P COUNT »PERCNT,(PERCNTL(I) DOO If=1 TO PATLEND, 
TOTPER) 
(SKIP,A(PATLEN) 9X(S=PATLEN) sFC7T) XU 30g FI 997) eX(5)» 
(PATLEND (X(2) oF (651) 0 9X(4),F07 91D) 


-ND 
P = P = RLINK 
GO TI T2 


/*FINISH PRINTING */ 
SIGNAL ENDPAGE (ORDOUT) 
DO I = 1 TO ORDCNT 
TMPORDL = ORDLST(I1) 


TIT = 0 

03 K = 1 TO PATLEN 
PERCNT1(K) = TMPORDL - COUNT 
PERCNT1(K) = TMPORODL - LENGT(K) / TMPORDI - COUNT 
TOT = TOT + TMPORDL - LENGT(K) 

END 

TITPER = TOT / TMPORD1 - COUNT 

PERCNT = TMPORDL - COUNT / PATFND 


IF COLLAP = 0 THEN PUT FILE(ORDOUT) EDIT(SUBSTR(TMPORD1 - KEY,» 
1,PATLEN)»TMPORDL - COUNT,PERCNT) 
(SKIP,A(PATLEN) »X(5-PATLEN) oF 7) oX(3) 9 FU 997)) 

ELSE PUT FILE(ORDOUT) EDIT(SUBSTR(TMPORDL = KEYe1lsPATLEN)s 
TMPORDL = COUNT,PERCNT,(PERCNT1(J) DO J = 1 TO PATLEN), 
TOTPER) 


D6 


ne 


PRNT PROC OPTIONS (MAIN) 


STMT LEVEL NEST 


[ 
vl 


(SKIP,A(FATLEN), X(5-PATLEN), F(7), X(3), F(3,7), X(5). 


(PATLEN)(x(2), F(6,i)), X(4), F(7,1)) 


L 1 END 
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PRNT PROC OPTIONS(MAIN) 


STMT LEVEL NEST 


456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
469 
470 
471 
472 
474 


NNNNMNNYNNNNN NH WNP & 
ee 


475 
477 
478 
479 
480 
481 
482 
483 
484 


MPNNNH NER ee 


NNNNNNN ND P 
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GETCHAR PROC 
LASTCHAR = NCHAR 
INVLD 
IF SLSH = NPOSIT - FIELD SPAN & SLSH ) NPOSIT THEN DO 
FIRST(BREAKBEGIN ) = FIRST(BR=AKBEGIN ) + 1 
NPOSIT = 81 
NCHAR = #8 
SLSH = 161 
FIRST TIME = i 
GO TO BRK 
_-ND 
IF NPOSIT FIELDEND THEN DO 
GET FILE(CARD) EDIT (INPT) (COL(1),A(60)) 
CARDS = CARDS + 1 
NPOSIT = BEGIN FIELD 
IF FIELD SPAN 1 THEN DO 
SLSH = INDEX(SUBSTR(INPT,BEGIN FIELD, 
BEGIN LENGTH),BREAK CHAR) 
IF SLUSH O THEN SLSH = BEGIN FIELD + SLSH - 1 
ELSE SLSH = 161 
END 
END 
NCHAR = SUBSTRCINPT»NPOSIT 1) 
NPOSIT = NPOSIT + FIELD SPAN 
VALID = INDEX(ALL CHARS,NCHAR) 
FIRST(VALID) = FIRST(VALIO) + 1 
IF VALID = O THEN DO 


9£ 


60 


486 


MNP 


MP NNNMNNMNNNMN MM N NN NNN PN 


NPE 


mre Nw Mw 


RKP NWWWWWrnNrnrPenn 


PUT EDIT(*ERROR - ON CARD',CARDS,® AND IN COLUMN *,NPOSIT=FIELD SPAN, 
"THERE IS AN INVALID CHARACTER=- *,NCHAR, 
")-- CHARACTER IS SKIPPED®) 
(SKIPsAyF(T) Ay F(T) sAgAgA) 
INVALIDCNT = INVALIDCNT + 1 
IF INVALIDCNT = INVALID THEN 00 
PUT EDIT(*NUMBER OF INVALID CHARACTERS EXCEEDS MAXIMUM SPECIFIED', 
INVALID," PROGRAM TERMINATION')(SKIPsA,F(5) 9A) 
GO TO PRNT 
END 
G3 TO INVLD 
END 
ELSE DO 
IF VALID )= VALIOEND THEN OO 
TOTCHAR = TOTCHAR + 1 
END 
ELSE DO 
IF VALID = INVALIOBEGIN THEN GO TO INVLO 
ELSE 00 
NPOSIT = 8. 
NCHAR = **? 
FIRST TIME = 1 
GO TO BRK 
END 
END 
END 
END GETCHAR 
FINI END PRNT 


LE 
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PRNT PROC OPTIONS(MAIN) 


STORAGE REQUIREMENTS» 


eee es eee ee SB eB eee Owe eee 


THe STORAGE AREA FOR THE PROCEDURE LABELLED PRNT IS 2020 BYTES LONGe 

THE STORAGE AREA FOR THE ON UNIT AT STATEMENT NOe 72 IS 224 BYTES LONG. 

THE STORAGE AREA FOR THE ON UNIT AT STATEMENT NOw 75 IS 224 BYTES LONG. 

THE STORAGE AREA FOR THE ON UNIT AT STATEMENT NO. 80 IS 272 BYTES LONG. 

THE STORAGE AREA FOR THE ON UNIT AT STATEMENT NO 86 IS 272 BYTES LONG. 

THE STORAGE AREA (IN STATIC) FOR THE PROCEDURE LABELLED GETCHAR IS 352 BYTES LONGe 
THE PROGRAM CSEZTT IS NAMED PRNT AND IS 14145 BYTES LONG. 


THE STATIC CSECT IS NAMED ***PRNTA AND IS 4480 BYTES LONG. 


*STATISTICS*® SOURCE RECORDS = 542yPROG TEXT STMNTS = 512,OBJECT BYTES = 14146 


ge 
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WARNINGS 


TEMO0e27I 


IEMO7ELI 


TEM3896I 


PRT PROC OPTIONS (MATIN) 


COMPILER DIAGNOSTICS, 


NO FILE/STRING OPTION SPECIFIED IN ONE OR MORE GET/PUT STATEMENTS. 


SYSIN/SYSPRINT HAS BEEN ASSUMED IN EACH CASE. 


ONE OR MORE FIXED BINARY ITEMS OF PRECISION 15 OR LESS HAVE BEEN GIVEN 


HALFWORD STORAGE. ‘THEY ARE FLAGGED '*********' IN THE XREF/ATR LIST. 


COMPILER CORE REQUIREMENT EXCEEDED SIZE GIVEN, AUXILIARY STORAGE USED. 


END OF DIAGNOSTICS, 


AUXILIARY STORAGE WILL NOT BE USED FOR DICTIONARY WHEN SIZE = 69K 


COMPILE TIME .2S MINS 


ELAPSED TIME -64 MINS 


6£ 


66 


THE FOLLOWING ARE THE EXECUTION PARAMETERS 


VALID CHAR='ELMOGRSTWZ' 


INVALID= 50 


BEGIN LENGTH= 60 


ALPHA ORDER='NO' 


INVALID CHAR=' ' 


PATLEN= 5 


FIELD SPAN= 


3 


BREAK CHAR='/' 


BEGIN FIELD= el 


MOST FRECUENT= 


COLLAPSE='YES' 


50 


Or 
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THE TOTAL NUMBER OF PATTERNS FOUND IS 
THE TOTAL NUMBER OF DIFFERENT PATTERNS FOUND IS 


CHARACTER 
E 


SN ZAYNDRDOOTPr 


INVAL IO 


COUNT 
1796 


68 


FREQUENCY 


0.327977 
02161614 
0.040358 
0.053871 
02013696 
0.191928 
0.000000 
0.055515 
96132579 
0.022462 


1994 


l= Se U6 
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NAME 

ELELE 
LELEL 
AcWEW 
=MEME 
ZWwEWE 
-RLRL 
-OLOL 
4EMEM 
WLRLR 
JLOLO 
fELEL 
ZLTEL 
eETEL 
-RLRO 
-TELE 
-TLTL 
-WLWL 
ZLETE 
ZRERE 
STELE 
LELEO 
~ELTE 
JLOLR 
ZERER 
ZLTLE 


COUNT 


ONWNNWNYN ODDO 


FREQUENCY 
069150299 
020115204 
020105286 
020100250 
020100250 
020095215 
020075073 
0.0075073 
020075073 
020070190 
0.0055084 
020039978 
0.0039978 
0.0039978 
0.0039978 
020039978 
0.0039978 
0-0035095 
020035095 
020035095 
0. 0035095 
0.0035095 
006035095 
020035095 
0.9030060 


FIRST SECOND 


301 
1.3 
305 
503 
205 
202 
166 
200 
301 
126 
1.2 
11.3 
lel 
2el 
lel 
2.8 
1.3 
4-6 
503 
303 
126 
1.4 
1.6 
le? 
2e3 


1.5 
228 
2.0 
Le? 
el 
208 
1.8 
403 
14 
1.7 
503 
lel 
1.8 
2el 
1.3 
123 
228 
1.3 
2el 
lel 
626 
11.0 
lel 
209 
1.0 


THIRD FOURTH 


209 
1.2 
4.0 
428 
228 
1e7 
1leT7 
1.6 
209 
1-5 
1.4 
1.4 
lel 
1el 
4e1 
1.9 
1.0 
304 
3.20 
503 
1.3 
1.3 
le% 
2el 
1-5 


1.2 
b6e2 
228 
le? 
4.3 
208 
1.4 
4.9 
1.9 
1.5 
1.7 
404 
209 
1-5 
1.3 
lel 
204 
lel 
726 
1? 
2e7 
164 
220 
2e7 
1.5 


FIFTH 
529 
126 
305 
Be2 
209 
1-9 
1-5 
2el 
203 
1.5 
1-0 
1.3 
1-9 
lel 
4.4 
1.4 
206 
5el 
3.4 
204 
1.4 
3e9 
3.1 
626 
3.3 


VVUMMNUVUMUUUUUUUUUUUMUUToaaerae 


=a =a a ee aw ay Dn eed ae 7 EE 


020030060 
0-.0030060 
0.0030060 
029030060 
020030060 
0.0030060 
020025024 
020025024 
020025024 
0.0025024 
000025024 
020025024 
020025024 
0-0025024 
020025024 
020025024 
020025024 
020025024 
0.0025024 
020025024 
020025024 
020025024 
0.0025024 
020025024 
020025024 


1.7 
202 
208 
308 
1.8 
207 
202 
5e2 
10.6 
200 
504% 
204 
14% 
1.8 
1.0 
1e4 
426 
1e4% 
4.0 
406 
1.2 
1.8 
1e2 
1.8 
204% 


— 
#eee#e 


ON ee et ee od 
e 
ONNOAGONCCOCON 


~ 
S 


204 


1.8 
le? 
1.5 
203 
1.3 
228 
1.6 
104 
1.0 
126 
1.2 
2.0 
1.2 
204 
4e2 
1le2 
1.4 
1.4 
1.0 
302 
1.0 
1.2 
1-0 
220 
1.4% 


1.0 
220 
1.5 
1.3 
220 
205 
1.2 
1.4 
202 
1.6 
14 
14 
1.0 
1.8 
1.0 
3.8 
326 
104 


128 


202 
204 
302 
1.4 
1.8 
204 


a 


“J 
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JOB NAME MACRO 


ITEM 


COMPUTE TIME 

WAIT TIME 

CORE STORAGE 

DIRECT ACCESS USAGE 
CARDS IN 

PAGES OUT 

LINES OUT 

PRINT COSTS, THIS LISTING 
TOTAL RUN COSTS 


* 


* 


* 


JOB ACCOUNTING SUMMARY 


QUANTITY, THIS RUN 


25.45 SEC. 

54.82 SEC. 

9.3 MEGABYTE-SECONDS 
553 1/0 ACCESSES 

835 CARDS 

22 PAGES 

750 LINES 

$0.29 

$3.74 


* * 


* 


PROGRAMMER ID SHYMANSKY 


QUANTITY, ACCUMULATED 


4 MIN. 47.44 SEC. 

12 MIN. 56.86 SEC. 
118.8 MEGABYTE-SECONDS 
6,806 1/0 ACCESSES 
7,746 CARDS 

354 PAGES 

11,562 LINES 


at] 
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